home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / LSP⁄C.cpt / globals.p < prev    next >
Encoding:
Text File  |  1989-01-05  |  2.1 KB  |  117 lines  |  [TEXT/PJMM]
  1. UNIT GLOBALS;
  2.  
  3. INTERFACE
  4.  
  5.     CONST
  6. { --------------------------------------------- }
  7. {              menu id constants                                }
  8. { --------------------------------------------- }
  9.         APPLEID = 128;
  10.         FILEID = 129;
  11.         EDITID = 130;
  12.         COMPAREID = 131;
  13.         LOOPID = 132;
  14.         POINTERID = 133;
  15.  
  16. { --------------------------------------------- }
  17. {              menu item constants                            }
  18. { --------------------------------------------- }
  19.         ABOUTITEM = 1;
  20.  
  21.         NEWITEM = 1;
  22.         OPENITEM = 2;
  23.         CLOSEITEM = 3;
  24.         SAVEITEM = 5;
  25.         SAVEASITEM = 6;
  26.         PAGESETUPITEM = 8;
  27.         PRINTITEM = 9;
  28.         QUITITEM = 11;
  29.  
  30.         UNDOITEM = 1;
  31.         CUTITEM = 3;
  32.         COPYITEM = 4;
  33.         PASTEITEM = 5;
  34.         CLEARITEM = 6;
  35.         CLIPITEM = 8;
  36.  
  37. { --------------------------------------------- }
  38. {    test to see if EventRecord.modifiers                }
  39. {    contains change to/from system window            }
  40. {    on window activate/deactivate events                }
  41. { --------------------------------------------- }
  42.         CHANGEFLAG = 2;
  43.  
  44.         TO_C_FUNCTION = 1;
  45.         TO_CR_FUNCTION = 2;
  46.         TO_P_FUNCTION = 3;
  47.     TYPE
  48.         context = (system, application);
  49.  
  50.     VAR
  51.         appleMenu: MenuHandle;
  52.         fileMenu: MenuHandle;
  53.         editMenu: MenuHandle;
  54.         compareMenu: MenuHandle;
  55.         pointerMenu: MenuHandle;
  56.         loopMenu: MenuHandle;
  57.  
  58.         theWindow: WindowPtr;
  59.  
  60.         theEvent: EventRecord;
  61.  
  62.         userQuit: Boolean;
  63.  
  64.         cTime: Longint;
  65.         crTime: Longint;
  66.         pTime: Longint;
  67.  
  68.         cPerf: Extended;
  69.         crPerf: Extended;
  70.         pPerf: Extended;
  71.  
  72.         cTimeDst: Rect;
  73.         crTimeDst: Rect;
  74.         pTimeDst: Rect;
  75.         ptrSizeDst: Rect;
  76.         loopSizeDst: Rect;
  77.  
  78.         cPerfDst: Rect;
  79.         crPerfDst: Rect;
  80.         pPerfDst: Rect;
  81.  
  82.         perfIndex: Integer;
  83.  
  84.         pSize: Longint;
  85.  
  86.         numLoops: Integer;
  87.  
  88.         do_it: ControlHandle;
  89.  
  90.  
  91.     PROCEDURE CenterWindow (wind: WindowPtr; r: Rect);
  92.  
  93. IMPLEMENTATION
  94.  
  95.     PROCEDURE CenterWindow; { wind: WindowPtr; r: Rect}
  96.  
  97.         VAR
  98.             r2: Rect;
  99.             windW: INTEGER;
  100.             windH: INTEGER;
  101.             rectW: INTEGER;
  102.             rectH: INTEGER;
  103.  
  104.     BEGIN
  105.         r2 := wind^.portRect;
  106.  
  107.         windW := r2.right - r2.left;
  108.         windH := r2.bottom - r2.top;
  109.  
  110.         rectW := r.right - r.left;
  111.         rectH := r.bottom - r.top;
  112.  
  113.         MoveWindow(wind, r.left + (rectW - windW) DIV 2, r.top + (rectH - windH) DIV 2, FALSE);
  114.     END;
  115.  
  116.  
  117. END.